home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New & Old.cpt / New and Old FileName / card_4837.txt < prev    next >
Text File  |  1987-10-31  |  1KB  |  66 lines
  1. -- card: 4837 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3203
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=126 top=54 right=283 bottom=454
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 8192
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A004
  25. -- rect: left=270 top=246 right=296 bottom=404
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Test FileName
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   get FileName()
  37.  
  38.   if it is empty then
  39.     put "user cancelled" into message box
  40.   else
  41.     put it into message box
  42.   end if
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part contents for background part 6
  48. ----- text -----
  49. 4 of 8
  50.  
  51. -- part contents for card part 1
  52. ----- text -----
  53. FileName( <file type> )
  54.  
  55. A typical script for this would be
  56.  
  57. ¬†¬†¬†¬†on mouseUp
  58. ¬†¬†¬†¬†¬†¬†put FileName( "TEXT" ) into sourcefile
  59. ¬†¬†¬†¬†¬†¬†if sourcefile is not empty then
  60. ¬†¬†¬†¬†¬†¬†¬†¬†open file sourcefile
  61. ¬†¬†¬†¬†¬†¬†¬†¬†-- read text from source file
  62. ¬†¬†¬†¬†¬†¬†¬†¬†close file sourcefile
  63. ¬†¬†¬†¬†¬†¬†end if
  64. ¬†¬†¬†¬†end mouseUp
  65.  
  66.